﻿<!--#include file="const.inc"-->

<%
	dim rs,sql,i,id


	id=Request.QueryString("id")
	if id="" then id=0
	if not isnumeric(id) then id=0
	id=clng(id)


	Set Rs = Server.CreateObject("Adodb.Recordset")

	Sql = "select name,title,Reply,[time],user,[nid] from qingtian_ly where id="&id
	Rs.Open Sql,conn,1,1
	if not (rs.bof and rs.eof)  then


select case v
case "0"
we0="<br/>"
hr="------------<br/>"
%>
<card title="<%=qingtian.utf8(rs("name"))%>"><p align="<%=qingtian.px%>">
<%
case "1"
hr=""
zi="<span style=""color:#FF5500"">"
zi0="</span>"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
%>
<title><%=qingtian.utf8(rs("name"))%></title>
</head>
<body>
<%

End Select

		if sid="Null" then
		%><%=we%><%=zi%><%=qingtian.utf8(session("username"))%>欢迎你<%=zi0%><a href="/login.asp?sid=<%=sidd%>&amp;url=/liuy/view.asp?id=<%=id%>">注册/登陆</a><%=we0%><%
		else
		qingtian.info
		end if
Response.Write(""&dao&"<b><a href=""/index.asp?sid="&sidd&""">首页</a>&gt;<a href=""index.asp?sid="&sidd&""">留言首页</a>&gt;留言</b>"&we0&""&hr&"")

		%>
		<%=we%>标题:<%=qingtian.utf8(rs("name"))%><%=we0%>
		<%=sou%>时间:<%=qingtian.FormatTime(rs("Time"),0)%><%=we0%>
		<%=we%>内容:<%=qingtian.utf8(rs("title"))%><%=we0%><%=hr%><%=sou%>
		<%if trim(rs("Reply"))<>"" then%>
		回复:<%=qingtian.utf8(rs("Reply"))%><%=we0%>
		<%
		else
		%>
		回复:还没有回复<%=we0%>
		<%
		end if


	

 	end if
	Rs.close
	
	set rs=nothing

 		%>
<%=qingtian.qingsav("560")%><%=hr%>
<%=sou%><a href='add.asp?sid=<%=sidd%>'>发表新留言</a><%=we0%>
 
		<%

end Function
%>
